object LEDControls: TLEDControls Left = 240 Top = 293 BorderIcons = [] BorderStyle = bsDialog Caption = 'LED Controls' ClientHeight = 139 ClientWidth = 376 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter ShowHint = True OnCreate = FormCreate TextHeight = 16 object LEDLabel1: TLEDLabel Left = 9 Top = 13 Width = 102 Height = 60 Hint = 'Hey look it'#39's a segmented LED!' UnlitColor = 16384 SegmentSize = 3 Caption = 'LED' Columns = 3 end object chkShowUnlit: TLEDCheckBox Left = 132 Top = 64 Width = 237 Height = 17 Hint = 'Click here to toggle the display of unlit segments on the LED la' + 'bel.' Caption = 'Show unlit LED segments' Checked = True LitColor = clLime State = cbChecked TabOrder = 1 UnlitColor = 16384 OnClick = chkShowUnlitClick end object ShadowButton1: TShadowButton Left = 143 Top = 96 Width = 89 Height = 33 Hint = 'Click me to make this window go away!' Cancel = True Caption = 'OK' Default = True ModalResult = 1 TabOrder = 2 end object GroupBox1: TGroupBox Left = 122 Top = 8 Width = 247 Height = 49 Caption = 'LED Color' TabOrder = 0 object rbGreen: TLEDRadioButton Left = 10 Top = 20 Width = 67 Height = 17 Hint = 'Pick the color for the LED label and check box.' Caption = 'Green' Checked = True LitColor = clLime TabOrder = 0 UnlitColor = 16384 OnClick = rbClick end object rbRed: TLEDRadioButton Left = 94 Top = 20 Width = 59 Height = 17 Hint = 'Pick the color for the LED label and check box.' Caption = 'Red' Checked = False LitColor = clLime TabOrder = 1 UnlitColor = 16384 OnClick = rbClick end object rbCyan: TLEDRadioButton Left = 162 Top = 20 Width = 67 Height = 17 Hint = 'Pick the color for the LED label and check box.' Caption = 'Cyan' Checked = False LitColor = clLime TabOrder = 2 UnlitColor = 16384 OnClick = rbClick end end end